load("C:/Users/MDR/Dropbox/IdeologyPaper/JOP Dataverse/fig2_data.RData")
View(xcar)
View(xcblgn)
View(xcj)
View(xcl)
library(readstata13)
acr<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/acronyms.dta",convert.factors=F)
dpt<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/dept.dta",convert.factors = F)
acr<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/rcl_ideology_estimates.dta",convert.factors=F)
dpt<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/rcl_skills_estimates.dta",convert.factors = F)
library(readstata13)
acr<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/acronyms.dta",convert.factors=F)
dpt<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/dept.dta",convert.factors = F)
ideo<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/rcl_ideology_estimates.dta",convert.factors=F)
skills<-read.dta13(file="C:/Users/richarmd/Dropbox/IdeologyPaper/JOP Dataverse/rcl_skills_estimates.dta",convert.factors = F)
View(acr)
View(dpt)
View(acr)
View(dpt)
View(ideo)
View(skills)
ideo_est<-read.dta13(file="G:/Data/Ratings/Ideology/Informed/informed_agency_ideology_ratings.dta",
convert.factors = F)
ideo_est<-read.dta13(file="G:/Data/Ratings/Ideology/Informed/informed_agency_ideology_ratings.dta",
convert.factors = F)
library(readstata13)
ideo_est<-read.dta13(file="G:/Data/Ratings/Ideology/Informed/informed_agency_ideology_ratings.dta",
convert.factors = F)
ideo_est1<-read.dta13(file="G:/Data/Ratings/Ideology/Informed/informed_agency_ideology_ratings.dta",
convert.factors = T)
table(ideo_est==ideo_est1)
ideo_est<-read.dta13(file="G:/Data/Ratings/Ideology/Informed/informed_agency_ideology_ratings.dta",
convert.factors = F)
